home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / mx2net20 / netstatr.mod < prev    next >
Text File  |  1990-12-15  |  1KB  |  37 lines
  1. MODULE  netstatr;
  2. FROM    NETWORK         IMPORT  stat;
  3. FROM    BIOS            IMPORT  RW,RWAbs;
  4. FROM    GEMDOS          IMPORT  OldTerm;
  5. FROM    SYSTEM          IMPORT  ADR,ADDRESS;
  6. FROM    InOut           IMPORT  WriteLn,WriteString;
  7. FROM    LongInOut       IMPORT  WriteLongCard;
  8. VAR     S                       :       stat;
  9.         result                  :       LONGINT;
  10. BEGIN
  11.         result:=RWAbs(Read,ADR(S),1,1,31);
  12.         WriteLn;
  13.         WriteString("Packets in         : ");
  14.         WriteLongCard(S.inpackets,12);
  15.         WriteLn;
  16.         WriteString("Packets out        : ");
  17.         WriteLongCard(S.outpackets,12);
  18.         WriteLn;
  19.         WriteString("RWabs requests     : ");
  20.         WriteLongCard(S.rwabsreqs,12);
  21.         WriteLn;
  22.         WriteString("Retrys             : ");
  23.         WriteLongCard(S.retrys,12);
  24.         WriteLn;
  25.         WriteString("Bad packets        : ");
  26.         WriteLongCard(S.checksumerrors,12);
  27.         WriteLn;
  28.         WriteString("Timeouts           : ");
  29.         WriteLongCard(S.timeouts,12);
  30.         WriteLn;
  31.         WriteString("Resets             : ");
  32.         WriteLongCard(S.resets,12);
  33.         WriteLn;
  34.         OldTerm;
  35. END     netstatr.
  36.  
  37.